10 POKE53280,6:POKE53281,6:POKE646,7
100 REM    M A X I T
200 REM BY HARRY J. SAAL
300 GOTO 800
400 GOSUB 10200:MD=1:FOR I=0 TO SZ:FOR J=0 TO SZ
500 GOSUB 5200:NEXT J,I:GOSUB 11200
600 IF PL=1 THEN 4100
700 GOTO 4400
800 POKE 53272,23:GOSUB 14600
900 DIM AV(64):SZ=7:NQ=(SZ+1)*(SZ+1)
1000 PRINT"[147]":PRINTTAB(17);"[205][193][216][201][212]!"
1200 PT$="[215][213][197][206][211][195][200][211][212][160][196][213][160]'[206][197][160][197][210][203][204][193][197][210][213][206][199]":GOSUB 9900
1300 IF"J"=LEFT$(A1$,1)THEN GOSUB12900
1400 PT$="1 [207][196][197][210] 2 [211][208][201][197][204][197][210]":GOSUB 9900
1500 NP=VAL(A1$)
1600 IF NP=1 THEN2000
1700 IF NP<>2 THEN 1400
1800 PT$="[215][201][197][160][200][197][201][211][211][212][160][196][197][210][160]1. [211][208][201][197][204][197][210]":GOSUB9900:GOSUB20000:P1$=""+A1$+"[146]"
1900 PT$="[215][201][197][160][200][197][201][211][211][212][160][196][197][210][160]2. [211][208][201][197][204][197][210]":GOSUB9900:GOSUB20000:P2$=""+A1$+"[146]":GOTO2100
2000 P2$="C64[146]":PT$="[215][201][197][160][200][197][201][211][211][212][160][196][213]":GOSUB9900:GOSUB20000:P1$=""+A1$+"[146]"
2100 GOSUB 10200
2200 REM MAKE BOARD
2300 I=RND(-TI):MD=1
2400 FOR K=1TONQ:AV(K)=K:NEXT
2500 FOR K=NQTO1 STEP -1
2600 READ PC
2700 P1=O+INT(K*RND(O))
2800 J=AV(P1)-O
2900 IF P1<K THEN FOR A3=P1 TO K-O:AV(A3)=AV(A3+O):NEXT
3000 I=INT(J/(SZ+O)):J=J-(SZ+O)*I
3100 BD(I,J)=PC:GOSUB 5200
3200 NEXT K:RESTORE
3300 DATA 15,10,9,9,8,8,7,7,7,6,6,6
3400 DATA 5,5,5,5,4,4,4,4,3,3,3,3,3
3500 DATA 2,2,2,2,2,2,1,1,1,1,1
3600 DATA 0,0,0,0,0,0,-1,-1,-1,-1,-1
3700 DATA -2,-2,-2,-2,-3,-3,-3
3800 DATA -4,-4,-4,-5,-5,-6,-6
3900 DATA -7,-9,100
4000 S1=0:S2=0:GOSUB 11200
4100 REM PLAYER 1
4200 PL=1:GOSUB 6100:IF FL=0 THEN 4500
4300 REM PLAYER 2
4400 PL=2:GOSUB 6100:IF FL<>0 THEN 4100
4500 ON 2+SGN(S2-S1) GOSUB 4900,5000,5100
4600 INPUT"NOCH EIN SPIEL";C$
4700 IF "J"=LEFT$(C$,1) THEN 2100
4800 END
4900 PRINTP1$;"  GEWANN!   ";STR$(S1-S2);" PUNKTE!":RETURN
5000 PRINT"GLEICHSTAND!!!           ":RETURN
5100 PRINT" ES GEWANN ";P2$;" !   ";STR$(S2-S1);" PUNKTE!":RETURN
5200 REM DRAW BOARD POS I,J IN MODE MD (1=NORMAL,2=REVERSE)
5300 PC=BD(I,J)
5400 D$=LEFT$("",O+I)
5500 R$=LEFT$("",O+J)
5600 PRINT"";D$;D$;TAB(5);R$;R$;R$;
5700 IF MD=2 THEN PRINT"";
5800 IF PC=OH THEN PRINT"**":C1=I:C2=J:RETURN
5900 IF PC=MH THEN PRINT"  ":RETURN
6000 PRINTRIGHT$(" "+STR$(PC),2):RETURN
6100 IF PL=2 THEN 6500
6200 FL=600:FOR J=0TOSZ:FL=FL+BD(C1,J):NEXT
6300 IF FL=0 THEN RETURN
6400 NM$=P1$:DX=1:DY=0:GOSUB6800:RETURN
6500 FL=600:FOR I=0TOSZ:FL=FL+BD(I,C2):NEXT
6600 IF FL=0 THEN RETURN
6700 NM$=P2$:DX=0:DY=1:GOSUB6800:RETURN
6800 Y=C1:X=C2:FX=1:FOR I=1TO9:GET A1$:NEXT
6900 IF NP=2 OR PL=1 THEN 7100
7000 GOSUB 9800:PRINT"";NM$;"'S ZUG......           ":GOSUB 11400:GOTO9000
7100 GOSUB 9800:ON FX GOTO 7200,7300
7200 PRINT"";NM$;", DEIN ZUG.                ":PRINT"[145]";:GOTO 7400
7300 PRINT"                               ":PRINT"[145]";
7400 TN=TI+30
7500 GETC$:IF C$<>"" THEN 7800
7600 IF TI<TN THEN 7500
7700 FX=3-FX:GOTO 7100
7800 IF C$<>" " THEN 8800
7900 OX=X:OY=Y
8000 Y=Y+DY: IF Y>SZ THEN Y=0
8100 X=X+DX: IF X>SZ THEN X=0
8200 PT=BD(Y,X): IF ABS(PT)=100 THEN 8000
8300 MD=1:I=OY:J=OX:GOSUB 5200
8400 MD=2:I= Y:J= X:GOSUB 5200
8500 FOR I=1TO9:GET A1$:NEXT
8700 GOTO 7500
8800 IF C$<>CHR$(13) THEN7500
8900 IF ABS(BD(Y,X))=100 THEN 7500
9000 REM SCORE IT
9100 MD=1:I=C1:J=C2:BD(I,J)=-100:GOSUB 5200
9200 I=Y:J=X:PT=BD(I,J):BD(I,J)=100:GOSUB 5200
9300 IF PL=1 THEN S1=S1+PT
9400 IF PL=2 THEN S2=S2+PT
9500 GOSUB 9800
9600 PRINT"";TAB(24);"WERT:   [157][157][157]";PT;
9700 GOSUB 11200:RETURN
9800 PRINT"":RETURN
9900 PRINTPT$;:INPUT"[160][160][160][157][157][157]";A1$
10000 IF A1$="[160]" THEN 9900
10100 RETURN
10200 POKE 53272,21
10300 PRINT"[147]";TAB(17);"[175][175][175][175][175][175]"
10301 PRINTTAB(17);"MAXIT!"
10400 PRINTTAB(7);"[176]";:FOR I=1TOSZ:PRINT"[192][192][178]";:NEXT:PRINT"[192][192][174]"
10500 FOR J=1TOSZ
10600 PRINTTAB(7);:FOR I=0TOSZ:PRINT"[221]  ";:NEXT:PRINT"[221]"
10700 PRINTTAB(7);"[171]";:FOR I=1TOSZ:PRINT"[192][192][219]";:NEXT:PRINT"[192][192][179]"
10800 NEXT J
10900 PRINTTAB(7);:FOR I=0TOSZ:PRINT"[221]  ";:NEXT:PRINT"[221]"
11000 PRINTTAB(7);"[173]";:FOR I=1TOSZ:PRINT"[192][192][177]";:NEXT:PRINT"[192][192][189]"
11100 RETURN
11200 GOSUB 9800
11300 PRINTP1$"'S STAND:"STR$(S1)" / "P2$"'S STAND:"STR$(S2)"   ":PRINT:RETURN
11400 MT=MH:GG=-1:FOR A1=ZTOSZ:PC=BD(A1,C2):IF ABS(PC)=OH THEN12800
11500 MX=MH:FOR A2=ZTOSZ
11600 IF A2<>C2 THENPK=BD(A1,A2):IF PK<>MH AND PK>MX THEN MX=PK:SV=A2
11700 NEXT A2
11800 IF MX<>MH THEN 12000
11900 IF PC>MT THEN MT=PC:GG=A1:GOTO 12800
12000 IF GG<Z THEN GG=A1
12100 FOR A2=ZTOSZ:PQ=BD(A2,SV):IF PQ=MH OR A2=A1 THEN 12700
12200 MY=MH:FOR A3=ZTOSZ:PW=BD(A2,A3):IF A3=SV THEN 12400
12300 IF ABS(PW)<>OH AND PW>MY THEN MY=PW
12400 NEXT A3
12500 IF MY=MH THEN MY=Z
12600 DT=PC-MX+PQ-MY:IF DT>MT THEN MT=DT:GG=A1
12700 NEXT A2
12800 NEXT A1:Y=GG:RETURN
12900 PRINT"[147][196][197][210][160][211][201][206][206][160][214][207][206] [205][193][216][201][212] [201][211][212], [211][207][160][214][201][197][204][197]"
13000 PRINT"[208][213][206][203][212][197][160][215][201][197][160][205][207][197][199][204][201][195][200][160][214][207][206][160][197][201][206][197][205] 8 [216] 8-"
13100 PRINT"[194][210][197][212][212] [205][201][212][160][215][197][210][212][197][206][160][218][213][160][197][210][200][193][204][212][197][206]. [196][213][160][203][193][206][206][211][212]"
13200 PRINT"[199][197][199][197][206][160][197][201][206][197][206][160][208][193][210][212][206][197][210][160][207][196][197][210][160][199][197][199][197][206] [196][197][206] [195]64"
13300 PRINT"[211][208][201][197][204][197][206].[208][213][206][203][212][197][160][194][197][203][207][205][205][211][212] [196][213],[215][197][206][206] -**[146]-"
13400 PRINT"[214][207][206][160][196][201][210][160][218][213][160][197][201][206][197][205][160][206][213][205][205][197][210][206][198][197][204][196][160][194][197][215][197][199][212]"
13500 PRINT"[215][201][210][196]. [196][197][210] 1. [211][208][201][197][204][197][210][160][194][197][215][197][199][212][160][211][201][195][200] [209][213][197][210],"
13600 PRINT"[196][197][210] 2. [211][208][201][197][204][197][210][160][206][213][210] [204][193][197][206][199][211]. [196][213][160][211][213][195][200][211][212]"
13700 PRINT"[196][197][206][160][208][204][193][212][218], [218][213][160][196][197][205][160][196][213][160][215][201][204][204][211][212], [205][201][212][160][196][197][210]"
13800 PRINT" '[211][208][193][195][197]'-[212][193][211][212][197] [193][213][211]. [206][193][195][200][160][202][197][196][197][205][160][196][210][213][195][203]"
13900 PRINT"[204][197][213][195][200][212][197][212][160][196][193][211][160][206][193][197][195][200][211][212][197][160][198][197][204][196][160][193][213][198]."
14000 PRINT"[196][213][160][203][193][206][206][211][212][160][196][201][197][160][212][193][211][212][197][160][193][213][195][200][160][198][197][211][212][200][193][204][212][197][206],"
14100 PRINT"[194][201][211][160][196][193][211][160][199][197][215][193][197][200][204][212][197][160][198][197][204][196][160][204][197][213][195][200][212][197][212]."
14200 PRINT"[215][197][206][206][160][196][213][160][196][197][201][206][160][199][197][215][193][197][200][204][212][197][211][212][160][198][197][204][196]"
14300 PRINT"[197][210][210][197][201][195][200][212][160][200][193][211][212], [196][210][213][197][195][203] '[210][197][212][213][210][206]'."
14400 PRINT"[196][213][160][197][210][200][193][197][204][212][211][212][160][196][193][206][206][160][196][201][197][160][208][213][206][203][212][197][160][196][201][197][211][197][211]"
14500 PRINT"[198][197][204][196][197][211] ('+' ODER '-').":RETURN
14600 REM DEFINE VARS
14700 DIM BD(7,7)
14800 OH=100:MH=-100
14900 A3=0:A2=0:PW=0:SV=0:MY=0
15000 PQ=0:GG=0:MT=0:MX=0:DT=0
15100 PC=0:PK=0:A1=0:C2=0
15200 Z=0:O=1:RETURN
20000 IFLEN(A1$)>6THENPRINT"[200][207][197][195][200][211][212][197][206][211] 6 [194][213][195][200][211][212][193][194][197][206] ![145][145][145][145]":GOSUB9900
20010 RETURN
0